PROGRAM mtok
CALL readinp
CALL check_param
CALL set_param
CALL make_lattice
CALL set_near_lattice
CALL delmem
CALL write_final_info
PRINT *,'Terminated normally~.'
END PROGRAM
